home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / ERAS / ERAS.CST / 00144_Script_to main profile < prev    next >
Text File  |  1997-07-24  |  1KB  |  28 lines
  1. on mouseDown 
  2.   global current_pm, gNextEraMovie,gQTchan
  3.   if trackButton("sh_profile dim", "basecast.cst") then
  4.     set the cursor of sprite the clickon to 4
  5.     set the cursor of sprite the clickon to 4
  6.     case true of
  7.       (the movie = "archive.dir"):
  8.         clear_display()
  9.         puppets_off()
  10.       (the movie contains "ERA_"):
  11.         set gNextEraMovie = fullpathfor("profile.dir")
  12.         if the type of sprite gQTchan = 16 then set the member of sprite gQTchan to 0
  13.         go to "fadeout"
  14.         exit
  15.     end case
  16.     -- execute wait graphic & change
  17.     set current_pm = 0
  18.     --    if the colordepth > 8 then puppettransition 51,02,08
  19.     if the type of sprite gQTchan = 16 then set the member of sprite gQTchan to 0
  20.     
  21.     go to "fadeout"
  22.     set the castnum of sprite 1 to cast "load_pro" -- must be blank (black) placeholder on sprite
  23.     updatestage
  24.     go to movie fullpathfor("profile.dir")  
  25.     set the cursor of sprite the clickon to -1
  26.   end if  
  27. end
  28.